home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / os2 / kuvert20.arj / INSTALL.CMD next >
OS/2 REXX Batch file  |  1994-01-05  |  3KB  |  109 lines
  1. /* Kuvert/2 2.0 Installation */
  2. '@Echo Off'
  3. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  4. Call SysLoadFuncs
  5. Signal On Failure Name FAILURE
  6. Signal On Halt Name HALT
  7. Signal On Syntax Name SYNTAX
  8. Call SysCls
  9. Say 'Installation von Kuvert/2 Version 2.0...'
  10. Say ''
  11. Result = SysFileTree( 'KUVERT.EXE', 'Files', 'F' )
  12. If Files.0 = 0 Then
  13.   Do
  14.   Say 'FEHLER: KUVERT.EXE nicht gefunden! Installation abgebrochen.'
  15.   Signal DONE
  16.   End
  17. Result = SysFileTree( 'KUVERT.HLP', 'Files', 'F' )
  18. If Files.0 = 0 Then
  19.   Do
  20.   Say 'FEHLER: KUVERT.HLP nicht gefunden! Installation abgebrochen.'
  21.   Signal DONE
  22.   End
  23. Result = SysFileTree( 'PRINTQ.DLL', 'Files', 'F' )
  24. If Files.0 = 0 Then
  25.   Do
  26.   Say 'FEHLER: PRINTQ.DLL nicht gefunden! Installation abgebrochen.'
  27.   Signal DONE
  28.   End
  29. Result = SysFileTree( 'KUVERT.DAT', 'Files', 'F' )
  30. If Files.0 = 0 Then
  31.   Do
  32.   Say 'FEHLER: KUVERT.DAT nicht gefunden! Installation abgebrochen.'
  33.   Signal DONE
  34.   End
  35. Result = SysFileTree( 'KUVERT.DOC', 'Files', 'F' )
  36. If Files.0 = 0 Then
  37.   Do
  38.   Say 'FEHLER: KUVERT.DOC nicht gefunden! Installation abgebrochen.'
  39.   Signal DONE
  40.   End
  41. Result = SysFileTree( 'LIZENZ.TXT', 'Files', 'F' )
  42. If Files.0 = 0 Then
  43.   Do
  44.   Say 'FEHLER: LIZENZ.TXT nicht gefunden! Installation abgebrochen.'
  45.   Signal DONE
  46.   End
  47. Say 'Bitte geben Sie den vollen Namen des Ordners an, in dem Sie'
  48. Say 'Kuvert/2 installieren möchten (Standard ist C:\OS2\APPS): '
  49. Pull Directory
  50. If Directory = "" Then Directory = 'C:\OS2\APPS'
  51. Result = SysFileTree( Directory, 'Dirs', 'D' )
  52. If Dirs.0 = 0 Then
  53.   Do
  54.   Result = SysMkDir( Directory )
  55.   if Result == 0 Then
  56.     Do
  57.     End
  58.   Else
  59.     Do
  60.     Say 'FEHLER: Ordner konnte nicht erzeugt werden. Installation abgebrochen.'
  61.     Signal DONE
  62.     End
  63.   End
  64. Folder = '<WP_DESKTOP>'
  65. Say 'Das Programmobjekt für Kuvert/2 wird auf der Arbeitsoberfläche erzeugt.'
  66. Say ''
  67.  
  68. Say 'Kopieren von KUVERT.EXE nach' Directory '...'
  69. Copy KUVERT.EXE Directory                  '1>NUL'
  70. Say 'Kopieren von KUVERT.HLP nach' Directory '...'
  71. Copy KUVERT.HLP Directory                  '1>NUL'
  72. Say 'Kopieren von PRINTQ.DLL nach' Directory '...'
  73. Copy PRINTQ.DLL Directory                  '1>NUL'
  74. Say 'Kopieren von KUVERT.DAT nach' Directory '...'
  75. Copy KUVERT.DAT Directory                  '1>NUL'
  76. Say 'Kopieren von KUVERT.DOC nach' Directory '...'
  77. Copy KUVERT.DOC Directory                  '1>NUL'
  78. Say 'Kopieren von LIZENZ.TXT nach' Directory '...'
  79. Copy LIZENZ.TXT Directory                  '1>NUL'
  80. Say ''
  81. Say 'Erzeugen des Programmobjekts...'
  82. Say ''
  83. Type = 'WPProgram'
  84. Title = 'Kuvert/2'
  85. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\KUVERT.EXE;STARTUPDIR='Directory';ASSOCFILTER=*.DAT;OBJECTID=<KUVERT>;NOPRINT=YES;'
  86. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  87. If Result = 1 Then
  88.   Say 'Kuvert/2 wurde erfolgreich installiert.'
  89.   Say 'Bitte stellen Sie sicher, daß der Ordner' Directory 'in'
  90.   Say 'der LIBPATH-Anweisung in Ihrer CONFIG.SYS-Datei angeführt ist.'
  91.   Say 'Lesen Sie vor der Verwendung von Kuvert/2 die Online-Hilfe'
  92.   Say 'von Kuvert/2 sowie KUVERT.DOC.'
  93.   Exit
  94. Else
  95.   Say 'FEHLER: Programmobjekt konnte nicht erzeugt werden. Installation abgebrochen.'
  96.   Exit
  97.  
  98. FAILURE:
  99. Say 'Installationsfehler.'
  100. Signal DONE
  101. HALT:
  102. Say 'Installationsfehler.'
  103. Signal DONE
  104. SYNTAX:
  105. Say 'Installationsfehler.'
  106. Signal DONE
  107. DONE:
  108. Exit
  109.